home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz Kr0nlcKLeZ 1 / HaCKeRz Kr0nlcKLeZ.iso / scriptz / ee26.exe / evil / events.ini < prev    next >
Encoding:
INI File  |  1997-03-06  |  8.4 KB  |  170 lines
  1. [Events]
  2. n0=#link disabled
  3. n1=1:ON QUIT: {
  4. n2=  if ((dal.net isin $lower($parms)) && (. isin $parms) && ($parm2 != %lastsplit)) {
  5. n3=    if ((org isin $lower($parms)) || (net isin $lower($parms)) || (com isin $lower($parms)) || (edu isin $lower($parms)) || (gov isin $lower($parms)) || (fi isin $lower($parms)) || (ca isin $lower($parms)) || (jp isin $lower($parms)) || (se isin $lower($parms))) {
  6. n4=      if ($parm1 == Local) halt
  7. n5=      if ($parm1 == Killed) {
  8. n6=        set %lastsplit $parm2 | timer 1 20 /set %lastsplit
  9. n7=        set %temp $len($parm5) - 2
  10. n8=        set %temp $mid(1,%temp,$parm5)
  11. n9=        echo 4 $active
  12. n10=        halt
  13. n11=      }
  14. n12=      set %lastsplit1 $parm1 | set %lastsplit $parm2 | /timer 1 20 /set %lastsplit
  15. n13=      echo $active 4SPLIT -> %lastsplit1 <-> %lastsplit
  16. n14=    }
  17. n15=  }
  18. n16=}
  19. n17=#link end
  20. n18=;
  21. n19=#TextFlood start
  22. n20=!1:on text:*:#:/.auser -a =201 $nick | /.timer 1 2 /.ruser 201 $nick
  23. n21=!+201:on text:*:#:/.auser -a =202 $nick | /.timer 1 2 /.ruser 202 $nick
  24. n22=!+202:on text:*:#:/.auser -a =203 $nick | /.timer 1 2 /.ruser 203 $nick
  25. n23=!+203:on text:*:#:/.auser -a =204 $nick | /.timer 1 2 /.ruser 204 $nick
  26. n24=!+204:on text:*:#:/.ruser 201,202,203,204 $nick | if ($nick isop $chan) { halt } |  /ban -u20 $chan $nick 3 | /kick $chan $nick [text flood] $read c:\evil\flood.txt [20 sec ban]
  27. n25=#TextFlood end
  28. n26=;
  29. n27=#ActionFlood start
  30. n28=!1:on action:*:#:/.auser -a =201 $nick | /.timer 1 2 /.ruser 201 $nick 
  31. n29=!+201:on action:*:#:/.auser -a =202 $nick | /.timer 1 2 /.ruser 202 $nick
  32. n30=!+202:on action:*:#:/.auser -a =203 $nick | /.timer 1 2 /.ruser 203 $nick
  33. n31=!+203:on action:*:#:/.auser -a =204 $nick | /.timer 1 2 /.ruser 204 $nick
  34. n32=!+204:on action:*:#:/.ruser 201,202,203,204 $nick | if ($nick isop $chan) { halt } | /ban -u20 $chan $nick 3 | kick $chan $nick [action flood] $read c:\evil\flood.txt [20 sec ban] | .ruser $nick
  35. n33=#ActionFlood end
  36. n34=;
  37. n35=#NoticeFlood start
  38. n36=!1:on notice:*:#:/.auser -a =201 $nick | /.timer 1 2 /.ruser 201 $nick
  39. n37=!+201:on notice:*:#:/.auser -a =202 $nick | /.timer 1 2 /.ruser 202 $nick
  40. n38=!+202:on notice:*:#:/.auser -a =203 $nick | /.timer 1 2 /.ruser 203 $nick
  41. n39=!+203:on notice:*:#:/.auser -a =204 $nick | /.timer 1 2 /.ruser 204 $nick
  42. n40=!+204:on notice:*:#:/.ruser 201,202,203,204 $nick | if ($nick isop $chan) { halt } | /ban -u20 $chan $nick 3 | kick $chan $nick [notice flood] $read c:\evil\flood.txt [20 sec ban]
  43. n41=#NoticeFlood end
  44. n42=;
  45. n43=#NickFlood start
  46. n44=!1:on nick:/.auser -a =301 $newnick | /.timer 1 10 /.ruser 301 $newnick
  47. n45=!+301:on nick:/.auser -a =302 $newnick | /.timer 1 10 /.ruser 302 $newnick
  48. n46=!+302:on nick:/.auser -a =303 $newnick | /.timer 1 10 /.ruser 303 $newnick
  49. n47=!+303:on nick:/floodnick
  50. n48=#NickFlood end
  51. n49=;
  52. n50=#shitlist enabled
  53. n51==99:on join:# {
  54. n52=  kick $chan $nick $read -s $+ $maddress($address($nick,0)) bans.txt
  55. n53=  ban $chan $nick 3 
  56. n54=}
  57. n55==50:on join:#:/mode $chan +o $nick
  58. n56==40:on join:#:/mode $chan +v $nick
  59. n57=#shitlist end
  60. n58=;
  61. n59=#clone disabled
  62. n60=1:on join:#:/set %add3 $site | /who %add3 | /enable #find | /set %show msg $chan |  halt 
  63. n61=#clone end
  64. n62=;
  65. n63=#door disabled
  66. n64=1:ON JOIN:#:/guser 10 $nick 3 | /timer 1 15 /ruser $nick 3
  67. n65=10:ON PART:#:/ban $chan $nick 3 | /msg $chan ò[ReVoLvInG DoOr]ò on $nick | /ruser $nick 3
  68. n66=10:ON TEXT:*:#:/ruser $nick 3
  69. n67=#door end
  70. n68=;
  71. n69=#8ball disabled
  72. n70=1:ON TEXT:!ball*:#:/describe $chan $read c:\evil\ball.txt
  73. n71=1:ON TEXT:!8ball*:#:/describe $chan shakes the magic 8 ball | /describe $chan looks at the ball | /msg $chan $nick the answer is: | /play -r $chan c:\evil\8ball.txt 1500
  74. n72=#8ball end
  75. n73=;
  76. n74=#slot disabled
  77. n75=*1!:ON TEXT:!slot:#: {
  78. n76=  inc %slot 1 | /auser 2 $nick | /timer 1 20 /ruser $nick
  79. n77=  set %slot1 $read $mircdir $+ slots.txt
  80. n78=  set %slot2 $read $mircdir $+ slots.txt
  81. n79=  set %slot3 $read $mircdir $+ slots.txt
  82. n80=  if (%slot1 == %slot2) && (%slot2 == %slot3) goto super
  83. n81=  else goto play
  84. n82=  :play
  85. n83=  notice $nick áá8,1|||||The eViL eMpiRe SloT mAcHine||||| 
  86. n84=  notice $nick 8,4+=12,4+=15,4+=2,4+=3,4+=7,4+=9,4+=10,4+=8,4+=13,4+=3,4+=9,4+=6,4+=12,4+=14,4+=11,4+=8,4+=2,4+=6,4+=10,4+=9,4+=8,4+ 
  87. n85=  notice $nick 8,4+=ááááááááááò[ $+ %slot1 $+ ]ò   ò[ $+ %slot2 $+ ]ò   ò[ $+ %slot3 $+ ]ò  ááááááááááá8,4=+
  88. n86=  notice $nick 8,4+=12,4+=15,4+=2,4+=3,4+=7,4+=9,4+=10,4+=8,4+=13,4+=3,4+=9,4+=6,4+=12,4+=14,4+=11,4+=8,4+=2,4+=6,4+=10,4+=9,4+=8,4+ 
  89. n87=  halt
  90. n88=  :super
  91. n89=  notice $nick 0,1YOU HAVE BEATEN THE $read $mircdir $+ tag.txt 0,1SLOT MACHINE
  92. n90=  notice $nick 0,1YOU HAVE GOTTEN 3 OF A KIND! A NOT SO NORMAL TASK!
  93. n91=  notice $nick áá8,1|||||The eViL eMpiRe SloT mAcHine||||| 
  94. n92=  notice $nick 8,4+=12,4+=15,4+=2,4+=3,4+=7,4+=9,4+=10,4+=8,4+=13,4+=3,4+=9,4+=6,4+=12,4+=14,4+=11,4+=8,4+=2,4+=6,4+=10,4+=9,4+=8,4+ 
  95. n93=  notice $nick 8,4+=ááááááááááò[ $+ %slot1 $+ ]ò   ò[ $+ %slot2 $+ ]ò   ò[ $+ %slot3 $+ ]ò  ááááááááááá8,4=+
  96. n94=  notice $nick 8,4+=12,4+=15,4+=2,4+=3,4+=7,4+=9,4+=10,4+=8,4+=13,4+=3,4+=9,4+=6,4+=12,4+=14,4+=11,4+=8,4+=2,4+=6,4+=10,4+=9,4+=8,4+ 
  97. n95=  set %winner1 $nick
  98. n96=  halt
  99. n97=}
  100. n98=*1!:ON TEXT:!slothelp:#:/msg $nick the eViL eMpiRe slot machine is very fun and addictive so far the slot handle has been pulled %slot times | /msg $nick there r different ways of winning | /msg $nick 1. To get 3 names will get u on the 3 Names liSt | /msg $nick 2. Get 3 of the same kind and be put on this list for the only one to ever beat the slots | /msg $nick so what r u waiting? type !slot now!
  101. n99=*2!:ON TEXT:!slot:#:/notice $nick too many request lag me, so wait 20 sec.
  102. n100=#slot end
  103. n101=;
  104. n102=#repeat_kick disabled
  105. n103=*1:on text:*:#: {
  106. n104=  if ($nick isop $chan) { halt } | check_repeat | set % $+ $nick $+ words $parms 
  107. n105=}
  108. n106=*1:on action:*:#: {
  109. n107=  if ($nick isop $chan) { halt } | check_repeat | set % $+ $nick $+ words $parms 
  110. n108=}
  111. n109=*1:on part:#:unset % $+ $nick $+ words  
  112. n110=*1:on quit:unset % $+ $nick $+ words  
  113. n111=*1:on kick:#:unset % $+ $knick $+ words  
  114. n112=#repeat_kick end
  115. n113=1:ON CTCPREPLY:*ping* {
  116. n114=  %pt = $ctime - $parm2
  117. n115=  notice $nick [ $+ $nick PING reply]: %pt secs
  118. n116=  halt
  119. n117=}
  120. n118=#so disabled
  121. n119=1:ON SERVERMODE:#:/mode $chan +tn-simlk
  122. n120=*1:on serverop:# {
  123. n121=  if $level($maddress($address($opnick,0))) == $null { set %level 1 }
  124. n122=  else { set %level $level($maddress($address($opnick,0))) 
  125. n123=  }
  126. n124=  if %level  < 50 { 
  127. n125=    mode $chan -o $opnick
  128. n126=    echo 4 $chan Serverop detection 
  129. n127=  }
  130. n128=}
  131. n129=#so end
  132. n130=50:ON JOIN:#:/pop 3 $chan $nick
  133. n131=1:ON TEXT:*:? { if (%away == on) { write c:\evil\msg.txt Message: $nick $+ ( $+ $remove($adate,$right(3,$adate)) $+ @ $+ $time $+ ) $parms 
  134. n132=  raw -q notice $nick :Message ( $+ $time $+ ) has been recorded | inc %page1 1 }
  135. n133=}
  136. n134=;
  137. n135=#icmps disabled
  138. n136=1:ON DNS: { 
  139. n137=  if ($raddress !isin $server) { who * $+ $raddress } 
  140. n138=  inc %icmp.l | if (%icmp >= %icmp.l) { .timer 1 3 dns $read -l [ $+ [ %icmp.l ] ] icmp.txt } 
  141. n139=  else { echo 4 -s End of $read c:\evil\tag.txt Connected Ip's List | Echo 4 -a No Warnings = Normal Connects Only! | .disable #icmps }
  142. n140=  halt
  143. n141=}
  144. n142=#icmps end
  145. n143=1:ON TEXT:╫*:#: {
  146. n144=  set %decodepos $len($parm1*)
  147. n145=  if (%decodepos > 299) {
  148. n146=    echo 4 $chan *** Decode halted; possible decode flood from $nick $+ .
  149. n147=    unset %decodepos
  150. n148=    halt
  151. n149=  }
  152. n150=  if ($mid(2,1,$parm1*) == ╫) {
  153. n151=    set %decode ╫ | set %decodekey privatedecode | set %decodecolor 4
  154. n152=  }
  155. n153=  else { set %decode  | set %decodekey publicdecode | set %decodecolor 2 }
  156. n154=  :decode
  157. n155=  set %decode %decode $+ $mid($asc($mid(%decodepos,1,$parm1*)),1,% [ $+ [ %decodekey ] ] )
  158. n156=  dec %decodepos 1
  159. n157=  if (%decodepos != 2) { goto decode }
  160. n158=  echo %decodecolor $chan < $+ $nick $+ > ╫ $+ %decode
  161. n159=  unset %decode*
  162. n160=}
  163. n161=1:ON INVITE:*:/echo 4 $active pRESS f7 to join $chan, pRESS f8 to kick $nick or pRESS f9 to ignore $nick | /set %ichan $chan | /set %inick $nick
  164. n162=1:ON BAN:#: {
  165. n163=  set %killer $banmask
  166. n164=  if ($banmask iswm $address($me,5)) && ($me isop $chan) { mode $chan -b $banmask } 
  167. n165=  if ($me isop $chan) { .enable #killer | .who $chan }
  168. n166=    else { halt }
  169. n167=  }
  170.